home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 56
/
Tiger_Disk_056_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
change device-#
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
235b
|
9 lines
100 print"[147]":poke53280,12:poke53281,15:poke646,0:print"change device-# ...."
110 input"old device number ";d0
120 ifd0<8ord0>15then110
130 input"new device number ";dn
140 ifdn<8ordn>15then130
150 open15,d0,15
160 print#15,"m-w"chr$(119)chr$(0)chr$(2)chr$(dn+32)chr$(dn+64)
170 close15:end